replace_CH_VS_CH_target Function

private elemental function replace_CH_VS_CH_target(string, target, substring, every, back) result(rep_string)

Replace part of a character string with a character substring, at a location matching a varying- string target

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: string
type(varying_string), intent(in) :: target
character(len=*), intent(in) :: substring
logical, intent(in), optional :: every
logical, intent(in), optional :: back

Return Value type(varying_string)


Source Code

  elemental function replace_CH_VS_CH_target (string, target, substring, every, back) result (rep_string)

    character(LEN=*), intent(in)     :: string
    type(varying_string), intent(in) :: target
    character(LEN=*), intent(in)     :: substring
    logical, intent(in), optional    :: every
    logical, intent(in), optional    :: back
    type(varying_string)             :: rep_string


    rep_string = replace(string, char(target), substring, every, back)

! Finish

    return

  end function replace_CH_VS_CH_target